home *** CD-ROM | disk | FTP | other *** search
/ Science Kit & Boreal Lab…Order Assistant Plus 2001 / 2001 Order Assis.iso / pc / Fun Stuff / PC / BioQuiz.exe / scripts / DefineSprite_111 / frame_21 / DoAction.as
Encoding:
Text File  |  2000-12-11  |  1.2 KB  |  44 lines
  1. tellTarget("/Points")
  2. {
  3.    stop();
  4. }
  5. if(eval("/:CurrentAnswer") eq eval("Q" add eval("/:CurrentQuestion") add "_CorrectAnswer"))
  6. {
  7.    set("/:Score",eval("/:Score") + eval("/:Points"));
  8.    Correct = "1";
  9.    set("/:CorrectCount",eval("/:CorrectCount") + "1");
  10. }
  11. else
  12. {
  13.    Correct = "0";
  14. }
  15. if(Correct == "1")
  16. {
  17.    set("/:Question","Excellent young Bio-Master!  The correct answer was indeed: ");
  18. }
  19. else
  20. {
  21.    set("/:Question","Nope! That\'s not the one. Better take a look at that biology text, then try again.");
  22. }
  23. setProperty("/A", _visible, "0");
  24. setProperty("/B", _visible, "0");
  25. setProperty("/C", _visible, "0");
  26. setProperty("/" add eval("Q" add eval("/:CurrentQuestion") add "_CorrectAnswer"), _visible, "1");
  27. if(eval("Q" add eval("/:CurrentQuestion") add "_CorrectAnswer") eq "A")
  28. {
  29.    set("/:AnswerB","");
  30.    set("/:AnswerC","");
  31. }
  32. else if(eval("Q" add eval("/:CurrentQuestion") add "_CorrectAnswer") eq "B")
  33. {
  34.    set("/:AnswerA","");
  35.    set("/:AnswerC","");
  36. }
  37. else if(eval("Q" add eval("/:CurrentQuestion") add "_CorrectAnswer") eq "C")
  38. {
  39.    set("/:AnswerA","");
  40.    set("/:AnswerB","");
  41. }
  42. set("/:CurrentQuestion",eval("/:CurrentQuestion") + "1");
  43. setProperty("/Continue", _visible, "1");
  44.